/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / Resources.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 52 65 73 6f 75 72 | 63 65 73 2e 70 00 00 00 |..Resour|ces.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 21 9f 00 | 00 01 ac a8 43 a6 80 a8 |.....!..|....C...|
|00000060| 43 a6 80 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 46 33 00 00 |........|....F3..|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 52 65 | 73 6f 75 72 63 65 73 2e |File: Re|sources.|
|000000c0| 70 0d 3b 0d 3b 0d 3b 20 | 43 6f 70 79 72 69 67 68 |p.;.;.; |Copyrigh|
|000000d0| 74 20 41 70 70 6c 65 20 | 43 6f 6d 70 75 74 65 72 |t Apple |Computer|
|000000e0| 2c 20 49 6e 63 2e 20 31 | 39 38 36 2d 39 33 0d 3b |, Inc. 1|986-93.;|
|000000f0| 20 41 6c 6c 20 52 69 67 | 68 74 73 20 52 65 73 65 | All Rig|hts Rese|
|00000100| 72 76 65 64 0d 3b 0d 2a | 2a 2a 2a 2a 2a 2a 2a 2a |rved.;.*|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 7d 0d 0d 55 4e | 49 54 20 52 45 53 4f 55 |***}..UN|IT RESOU|
|00000140| 52 43 45 53 3b 0d 49 4e | 54 45 52 46 41 43 45 0d |RCES;.IN|TERFACE.|
|00000150| 55 53 45 53 20 54 59 50 | 45 53 2c 4d 45 4d 4f 52 |USES TYP|ES,MEMOR|
|00000160| 59 2c 47 53 4f 53 3b 0d | 43 4f 4e 53 54 0d 0d 0d |Y,GSOS;.|CONST...|
|00000170| 7b 20 52 65 73 6f 75 72 | 63 65 43 6f 6e 76 65 72 |{ Resour|ceConver|
|00000180| 74 65 72 20 43 6f 64 65 | 73 20 7d 0d 72 65 73 4c |ter Code|s }.resL|
|00000190| 6f 67 4f 75 74 20 3d 20 | 24 30 3b 0d 72 65 73 4c |ogOut = |$0;.resL|
|000001a0| 6f 67 49 6e 20 3d 20 24 | 31 3b 0d 72 65 73 4c 6f |ogIn = $|1;.resLo|
|000001b0| 67 41 70 70 20 3d 20 24 | 30 3b 0d 72 65 73 4c 6f |gApp = $|0;.resLo|
|000001c0| 67 53 79 73 20 3d 20 24 | 32 3b 0d 0d 7b 20 45 72 |gSys = $|2;..{ Er|
|000001d0| 72 6f 72 20 43 6f 64 65 | 73 20 7d 0d 72 65 73 46 |ror Code|s }.resF|
|000001e0| 6f 72 6b 55 73 65 64 20 | 3d 20 24 31 45 30 31 3b |orkUsed |= $1E01;|
|000001f0| 20 20 7b 20 52 65 73 6f | 75 72 63 65 20 66 6f 72 |  { Reso|urce for|
|00000200| 6b 20 6e 6f 74 20 65 6d | 70 74 79 20 7d 0d 72 65 |k not em|pty }.re|
|00000210| 73 42 61 64 46 6f 72 6d | 61 74 20 3d 20 24 31 45 |sBadForm|at = $1E|
|00000220| 30 32 3b 20 20 7b 20 46 | 6f 72 6d 61 74 20 6f 66 |02;  { F|ormat of|
|00000230| 20 72 65 73 6f 75 72 63 | 65 20 66 6f 72 6b 20 69 | resourc|e fork i|
|00000240| 73 20 75 6e 6b 6e 6f 77 | 6e 20 7d 0d 72 65 73 4e |s unknow|n }.resN|
|00000250| 6f 43 6f 6e 76 65 72 74 | 65 72 20 3d 20 24 31 45 |oConvert|er = $1E|
|00000260| 30 33 3b 20 20 7b 20 4e | 6f 20 63 6f 6e 76 65 72 |03;  { N|o conver|
|00000270| 74 65 72 20 72 6f 75 74 | 69 6e 65 20 61 76 61 69 |ter rout|ine avai|
|00000280| 6c 61 62 6c 65 20 66 6f | 72 20 72 65 73 6f 75 72 |lable fo|r resour|
|00000290| 63 65 20 74 79 70 65 20 | 7d 0d 72 65 73 4e 6f 43 |ce type |}.resNoC|
|000002a0| 75 72 46 69 6c 65 20 3d | 20 24 31 45 30 34 3b 20 |urFile =| $1E04; |
|000002b0| 20 7b 20 74 68 65 72 65 | 20 61 72 65 20 6e 6f 20 | { there| are no |
|000002c0| 63 75 72 72 65 6e 74 20 | 6f 70 65 6e 20 72 65 73 |current |open res|
|000002d0| 6f 75 72 63 65 20 66 69 | 6c 65 73 20 7d 0d 72 65 |ource fi|les }.re|
|000002e0| 73 44 75 70 49 44 20 3d | 20 24 31 45 30 35 3b 20 |sDupID =| $1E05; |
|000002f0| 20 7b 20 49 44 20 69 73 | 20 61 6c 72 65 61 64 79 | { ID is| already|
|00000300| 20 75 73 65 64 20 7d 0d | 72 65 73 4e 6f 74 46 6f | used }.|resNotFo|
|00000310| 75 6e 64 20 3d 20 24 31 | 45 30 36 3b 20 20 7b 20 |und = $1|E06;  { |
|00000320| 72 65 73 6f 75 72 63 65 | 20 77 61 73 20 6e 6f 74 |resource| was not|
|00000330| 20 66 6f 75 6e 64 20 7d | 0d 72 65 73 46 69 6c 65 | found }|.resFile|
|00000340| 4e 6f 74 46 6f 75 6e 64 | 20 3d 20 24 31 45 30 37 |NotFound| = $1E07|
|00000350| 3b 20 20 7b 20 72 65 73 | 6f 75 72 63 65 20 66 69 |;  { res|ource fi|
|00000360| 6c 65 20 6e 6f 74 20 66 | 6f 75 6e 64 20 7d 0d 72 |le not f|ound }.r|
|00000370| 65 73 42 61 64 41 70 70 | 49 44 20 3d 20 24 31 45 |esBadApp|ID = $1E|
|00000380| 30 38 3b 20 20 7b 20 55 | 73 65 72 20 49 44 20 6e |08;  { U|ser ID n|
|00000390| 6f 74 20 66 6f 75 6e 64 | 2c 20 70 6c 65 61 73 65 |ot found|, please|
|000003a0| 20 63 61 6c 6c 20 52 65 | 73 6f 75 72 63 65 53 74 | call Re|sourceSt|
|000003b0| 61 72 74 75 70 20 7d 0d | 72 65 73 4e 6f 55 6e 69 |artup }.|resNoUni|
|000003c0| 71 75 65 49 44 20 3d 20 | 24 31 45 30 39 3b 20 20 |queID = |$1E09;  |
|000003d0| 7b 20 61 20 75 6e 69 71 | 75 65 20 49 44 20 77 61 |{ a uniq|ue ID wa|
|000003e0| 73 20 6e 6f 74 20 66 6f | 75 6e 64 20 7d 0d 7b 24 |s not fo|und }.{$|
|000003f0| 49 46 43 20 55 4e 44 45 | 46 49 4e 45 44 20 72 65 |IFC UNDE|FINED re|
|00000400| 73 49 6e 64 65 78 52 61 | 6e 67 65 20 7d 20 20 7b |sIndexRa|nge }  {|
|00000410| 20 49 6e 64 65 78 20 69 | 73 20 6f 75 74 20 6f 66 | Index i|s out of|
|00000420| 20 72 61 6e 67 65 20 7d | 0d 72 65 73 49 6e 64 65 | range }|.resInde|
|00000430| 78 52 61 6e 67 65 20 3d | 20 24 31 45 30 41 3b 0d |xRange =| $1E0A;.|
|00000440| 7b 24 53 45 54 43 20 72 | 65 73 49 6e 64 65 78 52 |{$SETC r|esIndexR|
|00000450| 61 6e 67 65 20 3a 3d 20 | 30 7d 0d 7b 24 45 4e 44 |ange := |0}.{$END|
|00000460| 43 7d 0d 72 65 73 53 79 | 73 49 73 4f 70 65 6e 20 |C}.resSy|sIsOpen |
|00000470| 3d 20 24 31 45 30 42 3b | 20 20 7b 20 53 79 73 74 |= $1E0B;|  { Syst|
|00000480| 65 6d 20 66 69 6c 65 20 | 69 73 20 61 6c 72 65 61 |em file |is alrea|
|00000490| 64 79 20 6f 70 65 6e 20 | 7d 0d 72 65 73 48 61 73 |dy open |}.resHas|
|000004a0| 43 68 61 6e 67 65 64 20 | 3d 20 24 31 45 30 43 3b |Changed |= $1E0C;|
|000004b0| 20 20 7b 20 52 65 73 6f | 75 72 63 65 20 6d 61 72 |  { Reso|urce mar|
|000004c0| 6b 65 64 20 63 68 61 6e | 67 65 64 3b 20 73 70 65 |ked chan|ged; spe|
|000004d0| 63 69 66 69 65 64 20 6f | 70 65 72 61 74 69 6f 6e |cified o|peration|
|000004e0| 20 6e 6f 74 20 61 6c 6c | 6f 77 65 64 20 7d 0d 72 | not all|owed }.r|
|000004f0| 65 73 44 69 66 66 43 6f | 6e 76 65 72 74 65 72 20 |esDiffCo|nverter |
|00000500| 3d 20 24 31 45 30 44 3b | 20 20 7b 20 44 69 66 66 |= $1E0D;|  { Diff|
|00000510| 65 72 65 6e 74 20 63 6f | 6e 76 65 72 74 65 72 20 |erent co|nverter |
|00000520| 61 6c 72 65 61 64 79 20 | 6c 6f 67 67 65 64 20 69 |already |logged i|
|00000530| 6e 20 66 6f 72 20 74 68 | 69 73 20 72 65 73 6f 75 |n for th|is resou|
|00000540| 72 63 65 20 74 79 70 65 | 20 7d 0d 72 65 73 44 69 |rce type| }.resDi|
|00000550| 73 6b 46 75 6c 6c 20 3d | 20 24 31 45 30 45 3b 20 |skFull =| $1E0E; |
|00000560| 20 7b 20 56 6f 6c 75 6d | 65 20 69 73 20 66 75 6c | { Volum|e is ful|
|00000570| 6c 20 7d 0d 72 65 73 49 | 6e 76 61 6c 69 64 53 68 |l }.resI|nvalidSh|
|00000580| 75 74 44 6f 77 6e 20 3d | 20 24 31 45 30 46 3b 20 |utDown =| $1E0F; |
|00000590| 7b 20 63 61 6e 27 74 20 | 73 68 75 74 20 64 6f 77 |{ can't |shut dow|
|000005a0| 6e 20 49 44 20 34 30 31 | 45 20 7d 0d 72 65 73 4e |n ID 401|E }.resN|
|000005b0| 61 6d 65 4e 6f 74 46 6f | 75 6e 64 20 3d 20 24 31 |ameNotFo|und = $1|
|000005c0| 45 31 30 3b 20 7b 20 6e | 6f 20 72 65 73 6f 75 72 |E10; { n|o resour|
|000005d0| 63 65 20 77 69 74 68 20 | 67 69 76 65 6e 20 6e 61 |ce with |given na|
|000005e0| 6d 65 20 7d 0d 72 65 73 | 42 61 64 4e 61 6d 65 56 |me }.res|BadNameV|
|000005f0| 65 72 73 20 3d 20 24 31 | 45 31 31 3b 20 7b 20 62 |ers = $1|E11; { b|
|00000600| 61 64 20 76 65 72 73 69 | 6f 6e 20 69 6e 20 72 52 |ad versi|on in rR|
|00000610| 65 73 4e 61 6d 65 20 72 | 65 73 6f 75 72 63 65 20 |esName r|esource |
|00000620| 7d 0d 72 65 73 44 75 70 | 53 74 61 72 74 55 70 20 |}.resDup|StartUp |
|00000630| 3d 20 24 31 45 31 32 3b | 20 7b 20 61 6c 72 65 61 |= $1E12;| { alrea|
|00000640| 64 79 20 73 74 61 72 74 | 65 64 20 77 69 74 68 20 |dy start|ed with |
|00000650| 74 68 69 73 20 49 44 20 | 7d 0d 72 65 73 49 6e 76 |this ID |}.resInv|
|00000660| 61 6c 69 64 54 79 70 65 | 4f 72 49 44 20 3d 20 24 |alidType|OrID = $|
|00000670| 31 45 31 33 3b 20 7b 20 | 74 79 70 65 20 6f 72 20 |1E13; { |type or |
|00000680| 49 44 20 69 73 20 30 20 | 7d 0d 0d 7b 20 4f 74 68 |ID is 0 |}..{ Oth|
|00000690| 65 72 20 43 6f 6e 73 74 | 61 6e 74 73 20 7d 0d 72 |er Const|ants }.r|
|000006a0| 65 73 43 68 61 6e 67 65 | 64 20 3d 20 24 30 30 32 |esChange|d = $002|
|000006b0| 30 3b 0d 72 65 73 50 72 | 65 4c 6f 61 64 20 3d 20 |0;.resPr|eLoad = |
|000006c0| 24 30 30 34 30 3b 0d 72 | 65 73 50 72 6f 74 65 63 |$0040;.r|esProtec|
|000006d0| 74 65 64 20 3d 20 24 30 | 30 38 30 3b 0d 72 65 73 |ted = $0|080;.res|
|000006e0| 41 62 73 4c 6f 61 64 20 | 3d 20 24 30 34 30 30 3b |AbsLoad |= $0400;|
|000006f0| 0d 72 65 73 43 6f 6e 76 | 65 72 74 65 72 20 3d 20 |.resConv|erter = |
|00000700| 24 30 38 30 30 3b 0d 72 | 65 73 4d 65 6d 41 74 74 |$0800;.r|esMemAtt|
|00000710| 72 20 3d 20 24 43 33 31 | 43 3b 20 20 7b 20 46 6c |r = $C31|C;  { Fl|
|00000720| 61 67 73 20 70 61 73 73 | 65 64 20 74 6f 20 74 68 |ags pass|ed to th|
|00000730| 65 20 4e 65 77 48 61 6e | 64 6c 65 20 4d 65 6d 6f |e NewHan|dle Memo|
|00000740| 72 79 20 4d 61 6e 61 67 | 65 72 20 63 61 6c 6c 20 |ry Manag|er call |
|00000750| 7d 0d 73 79 73 74 65 6d | 4d 61 70 20 3d 20 24 30 |}.system|Map = $0|
|00000760| 30 30 31 3b 0d 6d 61 70 | 43 68 61 6e 67 65 64 20 |001;.map|Changed |
|00000770| 3d 20 24 30 30 30 32 3b | 0d 72 6f 6d 4d 61 70 20 |= $0002;|.romMap |
|00000780| 3d 20 24 30 30 30 34 3b | 0d 72 65 73 4e 61 6d 65 |= $0004;|.resName|
|00000790| 4f 66 66 73 65 74 20 3d | 20 24 31 30 30 30 30 3b |Offset =| $10000;|
|000007a0| 20 20 7b 20 74 79 70 65 | 20 68 6f 6c 64 69 6e 67 |  { type| holding|
|000007b0| 20 6e 61 6d 65 73 20 7d | 0d 72 65 73 4e 61 6d 65 | names }|.resName|
|000007c0| 56 65 72 73 69 6f 6e 20 | 3d 20 24 30 30 30 31 3b |Version |= $0001;|
|000007d0| 0d 73 79 73 46 69 6c 65 | 49 44 20 3d 20 24 30 30 |.sysFile|ID = $00|
|000007e0| 30 31 3b 0d 0d 7b 20 52 | 65 73 6f 75 72 63 65 20 |01;..{ R|esource |
|000007f0| 54 79 70 65 20 4e 75 6d | 62 65 72 73 20 7d 0d 72 |Type Num|bers }.r|
|00000800| 49 63 6f 6e 20 3d 20 24 | 38 30 30 31 3b 20 20 7b |Icon = $|8001;  {|
|00000810| 20 49 63 6f 6e 20 74 79 | 70 65 20 7d 0d 72 50 69 | Icon ty|pe }.rPi|
|00000820| 63 74 75 72 65 20 3d 20 | 24 38 30 30 32 3b 20 20 |cture = |$8002;  |
|00000830| 7b 20 50 69 63 74 75 72 | 65 20 74 79 70 65 20 7d |{ Pictur|e type }|
|00000840| 0d 72 43 6f 6e 74 72 6f | 6c 4c 69 73 74 20 3d 20 |.rContro|lList = |
|00000850| 24 38 30 30 33 3b 20 20 | 7b 20 43 6f 6e 74 72 6f |$8003;  |{ Contro|
|00000860| 6c 20 6c 69 73 74 20 74 | 79 70 65 20 7d 0d 72 43 |l list t|ype }.rC|
|00000870| 6f 6e 74 72 6f 6c 54 65 | 6d 70 6c 61 74 65 20 3d |ontrolTe|mplate =|
|00000880| 20 24 38 30 30 34 3b 20 | 20 7b 20 43 6f 6e 74 72 | $8004; | { Contr|
|00000890| 6f 6c 20 74 65 6d 70 6c | 61 74 65 20 74 79 70 65 |ol templ|ate type|
|000008a0| 20 7d 0d 72 43 31 49 6e | 70 75 74 53 74 72 69 6e | }.rC1In|putStrin|
|000008b0| 67 20 3d 20 24 38 30 30 | 35 3b 20 20 7b 20 47 53 |g = $800|5;  { GS|
|000008c0| 2f 4f 53 20 63 6c 61 73 | 73 20 31 20 69 6e 70 75 |/OS clas|s 1 inpu|
|000008d0| 74 20 73 74 72 69 6e 67 | 20 7d 0d 72 50 53 74 72 |t string| }.rPStr|
|000008e0| 69 6e 67 20 3d 20 24 38 | 30 30 36 3b 20 20 7b 20 |ing = $8|006;  { |
|000008f0| 50 61 73 63 61 6c 20 73 | 74 72 69 6e 67 20 74 79 |Pascal s|tring ty|
|00000900| 70 65 20 7d 0d 72 53 74 | 72 69 6e 67 4c 69 73 74 |pe }.rSt|ringList|
|00000910| 20 3d 20 24 38 30 30 37 | 3b 20 20 7b 20 53 74 72 | = $8007|;  { Str|
|00000920| 69 6e 67 20 6c 69 73 74 | 20 74 79 70 65 20 7d 0d |ing list| type }.|
|00000930| 72 4d 65 6e 75 42 61 72 | 20 3d 20 24 38 30 30 38 |rMenuBar| = $8008|
|00000940| 3b 20 20 7b 20 4d 65 6e | 75 42 61 72 20 74 79 70 |;  { Men|uBar typ|
|00000950| 65 20 7d 0d 72 4d 65 6e | 75 20 3d 20 24 38 30 30 |e }.rMen|u = $800|
|00000960| 39 3b 20 20 7b 20 4d 65 | 6e 75 20 74 65 6d 70 6c |9;  { Me|nu templ|
|00000970| 61 74 65 20 7d 0d 72 4d | 65 6e 75 49 74 65 6d 20 |ate }.rM|enuItem |
|00000980| 3d 20 24 38 30 30 41 3b | 20 20 7b 20 4d 65 6e 75 |= $800A;|  { Menu|
|00000990| 20 69 74 65 6d 20 64 65 | 66 69 6e 69 74 69 6f 6e | item de|finition|
|000009a0| 20 7d 0d 72 54 65 78 74 | 46 6f 72 4c 45 54 65 78 | }.rText|ForLETex|
|000009b0| 74 42 6f 78 32 20 3d 20 | 24 38 30 30 42 3b 20 20 |tBox2 = |$800B;  |
|000009c0| 7b 20 44 61 74 61 20 66 | 6f 72 20 4c 69 6e 65 45 |{ Data f|or LineE|
|000009d0| 64 69 74 20 4c 45 54 65 | 78 74 42 6f 78 32 20 63 |dit LETe|xtBox2 c|
|000009e0| 61 6c 6c 20 7d 0d 72 43 | 74 6c 44 65 66 50 72 6f |all }.rC|tlDefPro|
|000009f0| 63 20 3d 20 24 38 30 30 | 43 3b 20 20 7b 20 43 6f |c = $800|C;  { Co|
|00000a00| 6e 74 72 6f 6c 20 64 65 | 66 69 6e 69 74 69 6f 6e |ntrol de|finition|
|00000a10| 20 70 72 6f 63 65 64 75 | 72 65 20 74 79 70 65 20 | procedu|re type |
|00000a20| 7d 0d 72 43 74 6c 43 6f | 6c 6f 72 54 62 6c 20 3d |}.rCtlCo|lorTbl =|
|00000a30| 20 24 38 30 30 44 3b 20 | 20 7b 20 43 6f 6c 6f 72 | $800D; | { Color|
|00000a40| 20 74 61 62 6c 65 20 66 | 6f 72 20 63 6f 6e 74 72 | table f|or contr|
|00000a50| 6f 6c 20 7d 0d 72 57 69 | 6e 64 50 61 72 61 6d 31 |ol }.rWi|ndParam1|
|00000a60| 20 3d 20 24 38 30 30 45 | 3b 20 20 7b 20 50 61 72 | = $800E|;  { Par|
|00000a70| 61 6d 65 74 65 72 73 20 | 66 6f 72 20 4e 65 77 57 |ameters |for NewW|
|00000a80| 69 6e 64 6f 77 32 20 63 | 61 6c 6c 20 7d 0d 72 57 |indow2 c|all }.rW|
|00000a90| 69 6e 64 50 61 72 61 6d | 32 20 3d 20 24 38 30 30 |indParam|2 = $800|
|00000aa0| 46 3b 20 20 7b 20 50 61 | 72 61 6d 65 74 65 72 73 |F;  { Pa|rameters|
|00000ab0| 20 66 6f 72 20 4e 65 77 | 57 69 6e 64 6f 77 32 20 | for New|Window2 |
|00000ac0| 63 61 6c 6c 20 7d 0d 72 | 57 69 6e 64 43 6f 6c 6f |call }.r|WindColo|
|00000ad0| 72 20 3d 20 24 38 30 31 | 30 3b 20 20 7b 20 57 69 |r = $801|0;  { Wi|
|00000ae0| 6e 64 6f 77 20 4d 61 6e | 61 67 65 72 20 63 6f 6c |ndow Man|ager col|
|00000af0| 6f 72 20 74 61 62 6c 65 | 20 7d 0d 72 54 65 78 74 |or table| }.rText|
|00000b00| 42 6c 6f 63 6b 20 3d 20 | 24 38 30 31 31 3b 20 20 |Block = |$8011;  |
|00000b10| 7b 20 54 65 78 74 20 62 | 6c 6f 63 6b 20 7d 0d 72 |{ Text b|lock }.r|
|00000b20| 53 74 79 6c 65 42 6c 6f | 63 6b 20 3d 20 24 38 30 |StyleBlo|ck = $80|
|00000b30| 31 32 3b 20 20 7b 20 54 | 65 78 74 45 64 69 74 20 |12;  { T|extEdit |
|00000b40| 73 74 79 6c 65 20 69 6e | 66 6f 72 6d 61 74 69 6f |style in|formatio|
|00000b50| 6e 20 7d 0d 72 54 6f 6f | 6c 53 74 61 72 74 75 70 |n }.rToo|lStartup|
|00000b60| 20 3d 20 24 38 30 31 33 | 3b 20 20 7b 20 54 6f 6f | = $8013|;  { Too|
|00000b70| 6c 20 73 65 74 20 73 74 | 61 72 74 75 70 20 72 65 |l set st|artup re|
|00000b80| 63 6f 72 64 20 7d 0d 72 | 52 65 73 4e 61 6d 65 20 |cord }.r|ResName |
|00000b90| 3d 20 24 38 30 31 34 3b | 20 20 7b 20 52 65 73 6f |= $8014;|  { Reso|
|00000ba0| 75 72 63 65 20 6e 61 6d | 65 20 7d 0d 72 41 6c 65 |urce nam|e }.rAle|
|00000bb0| 72 74 53 74 72 69 6e 67 | 20 3d 20 24 38 30 31 35 |rtString| = $8015|
|00000bc0| 3b 20 20 7b 20 41 6c 65 | 72 74 57 69 6e 64 6f 77 |;  { Ale|rtWindow|
|00000bd0| 20 69 6e 70 75 74 20 64 | 61 74 61 20 7d 0d 72 54 | input d|ata }.rT|
|00000be0| 65 78 74 20 3d 20 24 38 | 30 31 36 3b 20 20 7b 20 |ext = $8|016;  { |
|00000bf0| 55 6e 66 6f 72 6d 61 74 | 74 65 64 20 74 65 78 74 |Unformat|ted text|
|00000c00| 20 7d 0d 72 43 6f 64 65 | 52 65 73 6f 75 72 63 65 | }.rCode|Resource|
|00000c10| 20 3d 20 24 38 30 31 37 | 3b 0d 72 43 44 45 56 43 | = $8017|;.rCDEVC|
|00000c20| 6f 64 65 20 3d 20 24 38 | 30 31 38 3b 0d 72 43 44 |ode = $8|018;.rCD|
|00000c30| 45 56 46 6c 61 67 73 20 | 3d 20 24 38 30 31 39 3b |EVFlags |= $8019;|
|00000c40| 0d 72 54 77 6f 52 65 63 | 74 73 20 3d 20 24 38 30 |.rTwoRec|ts = $80|
|00000c50| 31 41 3b 20 20 7b 20 54 | 77 6f 20 72 65 63 74 61 |1A;  { T|wo recta|
|00000c60| 6e 67 6c 65 73 20 7d 0d | 72 46 69 6c 65 54 79 70 |ngles }.|rFileTyp|
|00000c70| 65 20 3d 20 24 38 30 31 | 42 3b 20 7b 20 46 69 6c |e = $801|B; { Fil|
|00000c80| 65 74 79 70 65 20 64 65 | 73 63 72 69 70 74 6f 72 |etype de|scriptor|
|00000c90| 73 3b 20 46 69 6c 65 20 | 54 79 70 65 20 4e 6f 74 |s; File |Type Not|
|00000ca0| 65 20 24 34 32 20 7d 0d | 72 4c 69 73 74 52 65 66 |e $42 }.|rListRef|
|00000cb0| 20 3d 20 24 38 30 31 43 | 3b 20 20 7b 20 4c 69 73 | = $801C|;  { Lis|
|00000cc0| 74 20 6d 65 6d 62 65 72 | 20 7d 0d 72 43 53 74 72 |t member| }.rCStr|
|00000cd0| 69 6e 67 20 3d 20 24 38 | 30 31 44 3b 20 20 7b 20 |ing = $8|01D;  { |
|00000ce0| 43 20 73 74 72 69 6e 67 | 20 7d 0d 72 58 43 4d 44 |C string| }.rXCMD|
|00000cf0| 20 3d 20 24 38 30 31 45 | 3b 0d 72 58 46 43 4e 20 | = $801E|;.rXFCN |
|00000d00| 3d 20 24 38 30 31 46 3b | 0d 72 45 72 72 6f 72 53 |= $801F;|.rErrorS|
|00000d10| 74 72 69 6e 67 20 3d 20 | 24 38 30 32 30 3b 20 20 |tring = |$8020;  |
|00000d20| 7b 20 45 72 72 6f 72 57 | 69 6e 64 6f 77 20 69 6e |{ ErrorW|indow in|
|00000d30| 70 75 74 20 64 61 74 61 | 20 7d 0d 72 4b 54 72 61 |put data| }.rKTra|
|00000d40| 6e 73 54 61 62 6c 65 20 | 3d 20 24 38 30 32 31 3b |nsTable |= $8021;|
|00000d50| 20 20 7b 20 4b 65 79 73 | 74 72 6f 6b 65 20 74 72 |  { Keys|troke tr|
|00000d60| 61 6e 73 6c 61 74 69 6f | 6e 20 74 61 62 6c 65 20 |anslatio|n table |
|00000d70| 7d 0d 72 57 53 74 72 69 | 6e 67 20 3d 20 24 38 30 |}.rWStri|ng = $80|
|00000d80| 32 32 3b 0d 72 43 31 4f | 75 74 70 75 74 53 74 72 |22;.rC1O|utputStr|
|00000d90| 69 6e 67 20 3d 20 24 38 | 30 32 33 3b 20 20 7b 20 |ing = $8|023;  { |
|00000da0| 47 53 2f 4f 53 20 63 6c | 61 73 73 20 31 20 6f 75 |GS/OS cl|ass 1 ou|
|00000db0| 74 70 75 74 20 73 74 72 | 69 6e 67 20 7d 0d 72 53 |tput str|ing }.rS|
|00000dc0| 6f 75 6e 64 53 61 6d 70 | 6c 65 20 3d 20 24 38 30 |oundSamp|le = $80|
|00000dd0| 32 34 3b 0d 72 54 45 52 | 75 6c 65 72 20 3d 20 24 |24;.rTER|uler = $|
|00000de0| 38 30 32 35 3b 20 20 7b | 20 54 65 78 74 45 64 69 |8025;  {| TextEdi|
|00000df0| 74 20 72 75 6c 65 72 20 | 69 6e 66 6f 72 6d 61 74 |t ruler |informat|
|00000e00| 69 6f 6e 20 7d 0d 72 46 | 53 65 71 75 65 6e 63 65 |ion }.rF|Sequence|
|00000e10| 20 3d 20 24 38 30 32 36 | 3b 0d 72 43 75 72 73 6f | = $8026|;.rCurso|
|00000e20| 72 20 3d 20 24 38 30 32 | 37 3b 20 20 7b 20 43 75 |r = $802|7;  { Cu|
|00000e30| 72 73 6f 72 20 72 65 73 | 6f 75 72 63 65 20 74 79 |rsor res|ource ty|
|00000e40| 70 65 20 7d 0d 72 49 74 | 65 6d 53 74 72 75 63 74 |pe }.rIt|emStruct|
|00000e50| 20 3d 20 24 38 30 32 38 | 3b 0d 72 56 65 72 73 69 | = $8028|;.rVersi|
|00000e60| 6f 6e 20 3d 20 24 38 30 | 32 39 3b 0d 72 43 6f 6d |on = $80|29;.rCom|
|00000e70| 6d 65 6e 74 20 3d 20 24 | 38 30 32 41 3b 0d 72 42 |ment = $|802A;.rB|
|00000e80| 75 6e 64 6c 65 20 3d 20 | 24 38 30 32 42 3b 0d 72 |undle = |$802B;.r|
|00000e90| 46 69 6e 64 65 72 50 61 | 74 68 20 3d 20 24 38 30 |FinderPa|th = $80|
|00000ea0| 32 43 3b 0d 72 50 61 6c | 65 74 74 65 57 69 6e 64 |2C;.rPal|etteWind|
|00000eb0| 6f 77 20 3d 20 24 38 30 | 32 44 3b 20 7b 20 75 73 |ow = $80|2D; { us|
|00000ec0| 65 64 20 62 79 20 48 79 | 70 65 72 43 61 72 64 20 |ed by Hy|perCard |
|00000ed0| 49 49 67 73 20 31 2e 31 | 20 7d 0d 72 54 61 67 67 |IIgs 1.1| }.rTagg|
|00000ee0| 65 64 53 74 72 69 6e 67 | 73 20 3d 20 24 38 30 32 |edString|s = $802|
|00000ef0| 45 3b 0d 72 50 61 74 74 | 65 72 6e 4c 69 73 74 20 |E;.rPatt|ernList |
|00000f00| 3d 20 24 38 30 32 46 3b | 0d 72 52 65 63 74 4c 69 |= $802F;|.rRectLi|
|00000f10| 73 74 20 3d 20 24 43 30 | 30 31 3b 0d 72 50 72 69 |st = $C0|01;.rPri|
|00000f20| 6e 74 52 65 63 6f 72 64 | 20 3d 20 24 43 30 30 32 |ntRecord| = $C002|
|00000f30| 3b 0d 72 46 6f 6e 74 20 | 3d 20 24 43 30 30 33 3b |;.rFont |= $C003;|
|00000f40| 0d 0d 54 59 50 45 0d 52 | 65 73 49 44 20 3d 20 4c |..TYPE.R|esID = L|
|00000f50| 6f 6e 67 69 6e 74 20 3b | 0d 52 65 73 54 79 70 65 |ongint ;|.ResType|
|00000f60| 20 3d 20 49 6e 74 65 67 | 65 72 20 3b 0d 52 65 73 | = Integ|er ;.Res|
|00000f70| 41 74 74 72 20 3d 20 49 | 6e 74 65 67 65 72 20 3b |Attr = I|nteger ;|
|00000f80| 0d 52 65 73 48 65 61 64 | 65 72 52 65 63 20 3d 20 |.ResHead|erRec = |
|00000f90| 52 45 43 4f 52 44 0d 20 | 20 20 20 72 46 69 6c 65 |RECORD. |   rFile|
|00000fa0| 56 65 72 73 69 6f 6e 20 | 3a 20 4c 6f 6e 67 69 6e |Version |: Longin|
|00000fb0| 74 3b 20 7b 20 46 6f 72 | 6d 61 74 20 76 65 72 73 |t; { For|mat vers|
|00000fc0| 69 6f 6e 20 6f 66 20 72 | 65 73 6f 75 72 63 65 20 |ion of r|esource |
|00000fd0| 66 6f 72 6b 20 7d 0d 20 | 20 20 20 72 46 69 6c 65 |fork }. |   rFile|
|00000fe0| 54 6f 4d 61 70 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |ToMap : |Longint;|
|00000ff0| 20 7b 20 4f 66 66 73 65 | 74 20 66 72 6f 6d 20 73 | { Offse|t from s|
|00001000| 74 61 72 74 20 74 6f 20 | 72 65 73 6f 75 72 63 65 |tart to |resource|
|00001010| 20 6d 61 70 20 72 65 63 | 6f 72 64 20 7d 0d 20 20 | map rec|ord }.  |
|00001020| 20 20 72 46 69 6c 65 4d | 61 70 53 69 7a 65 20 3a |  rFileM|apSize :|
|00001030| 20 4c 6f 6e 67 69 6e 74 | 3b 20 7b 20 4e 75 6d 62 | Longint|; { Numb|
|00001040| 65 72 20 6f 66 20 62 79 | 74 65 73 20 6d 61 70 20 |er of by|tes map |
|00001050| 6f 63 63 75 70 69 65 73 | 20 69 6e 20 66 69 6c 65 |occupies| in file|
|00001060| 20 7d 0d 20 20 20 20 72 | 46 69 6c 65 4d 65 6d 6f | }.    r|FileMemo|
|00001070| 20 3a 20 50 41 43 4b 45 | 44 20 41 52 52 41 59 5b | : PACKE|D ARRAY[|
|00001080| 31 2e 2e 31 32 38 5d 20 | 4f 46 20 42 79 74 65 3b |1..128] |OF Byte;|
|00001090| 20 7b 20 52 65 73 65 72 | 76 65 64 20 73 70 61 63 | { Reser|ved spac|
|000010a0| 65 20 66 6f 72 20 61 70 | 70 6c 69 63 61 74 69 6f |e for ap|plicatio|
|000010b0| 6e 20 7d 0d 45 4e 44 3b | 0d 46 72 65 65 42 6c 6f |n }.END;|.FreeBlo|
|000010c0| 63 6b 52 65 63 20 3d 20 | 52 45 43 4f 52 44 0d 20 |ckRec = |RECORD. |
|000010d0| 20 20 20 62 6c 6b 4f 66 | 66 73 65 74 20 3a 20 4c |   blkOf|fset : L|
|000010e0| 6f 6e 67 69 6e 74 3b 0d | 20 20 20 20 62 6c 6b 53 |ongint;.|    blkS|
|000010f0| 69 7a 65 20 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 45 |ize : Lo|ngint;.E|
|00001100| 4e 44 3b 0d 52 65 73 4d | 61 70 48 6e 64 6c 20 3d |ND;.ResM|apHndl =|
|00001110| 20 5e 52 65 73 4d 61 70 | 50 74 72 3b 0d 52 65 73 | ^ResMap|Ptr;.Res|
|00001120| 4d 61 70 50 74 72 20 3d | 20 5e 52 65 73 4d 61 70 |MapPtr =| ^ResMap|
|00001130| 3b 0d 52 65 73 4d 61 70 | 20 3d 20 52 45 43 4f 52 |;.ResMap| = RECOR|
|00001140| 44 0d 20 20 20 20 6d 61 | 70 4e 65 78 74 20 3a 20 |D.    ma|pNext : |
|00001150| 52 65 73 4d 61 70 48 6e | 64 6c 3b 20 7b 20 48 61 |ResMapHn|dl; { Ha|
|00001160| 6e 64 6c 65 20 74 6f 20 | 6e 65 78 74 20 72 65 73 |ndle to |next res|
|00001170| 6f 75 72 63 65 20 6d 61 | 70 20 7d 0d 20 20 20 20 |ource ma|p }.    |
|00001180| 6d 61 70 46 6c 61 67 20 | 3a 20 49 6e 74 65 67 65 |mapFlag |: Intege|
|00001190| 72 3b 20 7b 20 42 69 74 | 20 46 6c 61 67 73 20 7d |r; { Bit| Flags }|
|000011a0| 0d 20 20 20 20 6d 61 70 | 4f 66 66 73 65 74 20 3a |.    map|Offset :|
|000011b0| 20 4c 6f 6e 67 69 6e 74 | 3b 20 7b 20 4d 61 70 27 | Longint|; { Map'|
|000011c0| 73 20 66 69 6c 65 20 70 | 6f 73 69 74 69 6f 6e 20 |s file p|osition |
|000011d0| 7d 0d 20 20 20 20 6d 61 | 70 53 69 7a 65 20 3a 20 |}.    ma|pSize : |
|000011e0| 4c 6f 6e 67 69 6e 74 3b | 20 7b 20 4e 75 6d 62 65 |Longint;| { Numbe|
|000011f0| 72 20 6f 66 20 62 79 74 | 65 73 20 6d 61 70 20 6f |r of byt|es map o|
|00001200| 63 63 75 70 69 65 73 20 | 69 6e 20 66 69 6c 65 20 |ccupies |in file |
|00001210| 7d 0d 20 20 20 20 6d 61 | 70 54 6f 49 6e 64 65 78 |}.    ma|pToIndex|
|00001220| 20 3a 20 49 6e 74 65 67 | 65 72 3b 0d 20 20 20 20 | : Integ|er;.    |
|00001230| 6d 61 70 46 69 6c 65 4e | 75 6d 20 3a 20 49 6e 74 |mapFileN|um : Int|
|00001240| 65 67 65 72 3b 0d 20 20 | 20 20 6d 61 70 49 44 20 |eger;.  |  mapID |
|00001250| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 20 20 20 20 6d |: Intege|r;.    m|
|00001260| 61 70 49 6e 64 65 78 53 | 69 7a 65 20 3a 20 4c 6f |apIndexS|ize : Lo|
|00001270| 6e 67 69 6e 74 3b 0d 20 | 20 20 20 6d 61 70 49 6e |ngint;. |   mapIn|
|00001280| 64 65 78 55 73 65 64 20 | 3a 20 4c 6f 6e 67 69 6e |dexUsed |: Longin|
|00001290| 74 3b 0d 20 20 20 20 6d | 61 70 46 72 65 65 4c 69 |t;.    m|apFreeLi|
|000012a0| 73 74 53 69 7a 65 20 3a | 20 49 6e 74 65 67 65 72 |stSize :| Integer|
|000012b0| 3b 0d 20 20 20 20 6d 61 | 70 46 72 65 65 4c 69 73 |;.    ma|pFreeLis|
|000012c0| 74 55 73 65 64 20 3a 20 | 49 6e 74 65 67 65 72 3b |tUsed : |Integer;|
|000012d0| 0d 20 20 20 20 6d 61 70 | 46 72 65 65 4c 69 73 74 |.    map|FreeList|
|000012e0| 20 3a 20 41 52 52 41 59 | 5b 31 2e 2e 31 5d 20 4f | : ARRAY|[1..1] O|
|000012f0| 46 20 46 72 65 65 42 6c | 6f 63 6b 52 65 63 3b 20 |F FreeBl|ockRec; |
|00001300| 7b 20 6e 20 62 79 74 65 | 73 20 28 61 72 72 61 79 |{ n byte|s (array|
|00001310| 20 6f 66 20 66 72 65 65 | 20 62 6c 6f 63 6b 20 72 | of free| block r|
|00001320| 65 63 6f 72 64 73 29 20 | 7d 0d 45 4e 44 3b 0d 4d |ecords) |}.END;.M|
|00001330| 61 70 52 65 63 20 3d 20 | 52 65 73 4d 61 70 3b 09 |apRec = |ResMap;.|
|00001340| 09 7b 20 54 42 52 33 20 | 64 65 66 69 6e 69 74 69 |.{ TBR3 |definiti|
|00001350| 6f 6e 73 20 7d 0d 4d 61 | 70 52 65 63 50 74 72 20 |ons }.Ma|pRecPtr |
|00001360| 3d 20 52 65 73 4d 61 70 | 50 74 72 3b 0d 4d 61 70 |= ResMap|Ptr;.Map|
|00001370| 52 65 63 48 6e 64 6c 20 | 3d 20 52 65 73 4d 61 70 |RecHndl |= ResMap|
|00001380| 48 6e 64 6c 3b 0d 0d 52 | 65 73 52 65 66 52 65 63 |Hndl;..R|esRefRec|
|00001390| 50 74 72 20 3d 20 5e 52 | 65 73 52 65 66 52 65 63 |Ptr = ^R|esRefRec|
|000013a0| 3b 0d 52 65 73 52 65 66 | 52 65 63 20 3d 20 52 45 |;.ResRef|Rec = RE|
|000013b0| 43 4f 52 44 0d 20 20 20 | 20 72 65 73 54 79 70 65 |CORD.   | resType|
|000013c0| 20 3a 20 52 65 73 54 79 | 70 65 3b 0d 20 20 20 20 | : ResTy|pe;.    |
|000013d0| 72 65 73 49 44 20 3a 20 | 52 65 73 49 44 3b 0d 20 |resID : |ResID;. |
|000013e0| 20 20 20 72 65 73 4f 66 | 66 73 65 74 20 3a 20 4c |   resOf|fset : L|
|000013f0| 6f 6e 67 69 6e 74 3b 0d | 20 20 20 20 72 65 73 41 |ongint;.|    resA|
|00001400| 74 74 72 20 3a 20 52 65 | 73 41 74 74 72 3b 0d 20 |ttr : Re|sAttr;. |
|00001410| 20 20 20 72 65 73 53 69 | 7a 65 20 3a 20 4c 6f 6e |   resSi|ze : Lon|
|00001420| 67 69 6e 74 3b 0d 20 20 | 20 20 72 65 73 48 61 6e |gint;.  |  resHan|
|00001430| 64 6c 65 20 3a 20 48 61 | 6e 64 6c 65 3b 0d 45 4e |dle : Ha|ndle;.EN|
|00001440| 44 3b 0d 52 65 73 6f 75 | 72 63 65 53 70 65 63 20 |D;.Resou|rceSpec |
|00001450| 3d 20 52 45 43 4f 52 44 | 0d 20 20 20 20 72 65 73 |= RECORD|.    res|
|00001460| 6f 75 72 63 65 54 79 70 | 65 20 3a 20 52 65 73 54 |ourceTyp|e : ResT|
|00001470| 79 70 65 3b 0d 20 20 20 | 20 72 65 73 6f 75 72 63 |ype;.   | resourc|
|00001480| 65 49 44 20 3a 20 52 65 | 73 49 44 3b 0d 45 4e 44 |eID : Re|sID;.END|
|00001490| 3b 0d 52 65 73 4e 61 6d | 65 45 6e 74 72 79 50 74 |;.ResNam|eEntryPt|
|000014a0| 72 20 3d 20 5e 52 65 73 | 4e 61 6d 65 45 6e 74 72 |r = ^Res|NameEntr|
|000014b0| 79 3b 0d 52 65 73 4e 61 | 6d 65 45 6e 74 72 79 20 |y;.ResNa|meEntry |
|000014c0| 3d 20 52 45 43 4f 52 44 | 0d 20 20 20 20 6e 61 6d |= RECORD|.    nam|
|000014d0| 65 64 52 65 73 49 44 20 | 3a 20 52 65 73 49 44 3b |edResID |: ResID;|
|000014e0| 0d 20 20 20 20 72 65 73 | 4e 61 6d 65 20 3a 20 53 |.    res|Name : S|
|000014f0| 74 72 32 35 35 3b 0d 45 | 4e 44 3b 0d 52 65 73 4e |tr255;.E|ND;.ResN|
|00001500| 61 6d 65 52 65 63 48 6e | 64 6c 20 3d 20 5e 52 65 |ameRecHn|dl = ^Re|
|00001510| 73 4e 61 6d 65 52 65 63 | 50 74 72 3b 0d 52 65 73 |sNameRec|Ptr;.Res|
|00001520| 4e 61 6d 65 52 65 63 50 | 74 72 20 3d 20 5e 52 65 |NameRecP|tr = ^Re|
|00001530| 73 4e 61 6d 65 52 65 63 | 3b 0d 52 65 73 4e 61 6d |sNameRec|;.ResNam|
|00001540| 65 52 65 63 20 3d 20 52 | 45 43 4f 52 44 0d 20 20 |eRec = R|ECORD.  |
|00001550| 20 20 76 65 72 73 69 6f | 6e 20 3a 20 49 6e 74 65 |  versio|n : Inte|
|00001560| 67 65 72 3b 0d 20 20 20 | 20 6e 61 6d 65 43 6f 75 |ger;.   | nameCou|
|00001570| 6e 74 20 3a 20 4c 6f 6e | 67 69 6e 74 3b 0d 20 20 |nt : Lon|gint;.  |
|00001580| 20 20 72 65 73 4e 61 6d | 65 45 6e 74 72 69 65 73 |  resNam|eEntries|
|00001590| 20 3a 20 41 52 52 41 59 | 5b 31 2e 2e 31 5d 20 4f | : ARRAY|[1..1] O|
|000015a0| 46 20 52 65 73 4e 61 6d | 65 45 6e 74 72 79 3b 0d |F ResNam|eEntry;.|
|000015b0| 45 4e 44 3b 0d 50 52 4f | 43 45 44 55 52 45 20 41 |END;.PRO|CEDURE A|
|000015c0| 64 64 52 65 73 6f 75 72 | 63 65 20 28 20 72 65 73 |ddResour|ce ( res|
|000015d0| 6f 75 72 63 65 48 61 6e | 64 6c 65 3a 48 61 6e 64 |ourceHan|dle:Hand|
|000015e0| 6c 65 3b 20 72 65 73 6f | 75 72 63 65 41 74 74 72 |le; reso|urceAttr|
|000015f0| 3a 52 65 73 41 74 74 72 | 3b 20 72 65 73 6f 75 72 |:ResAttr|; resour|
|00001600| 63 65 54 79 70 65 3a 52 | 65 73 54 79 70 65 3b 20 |ceType:R|esType; |
|00001610| 72 65 73 6f 75 72 63 65 | 49 44 3a 52 65 73 49 44 |resource|ID:ResID|
|00001620| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 43 |)  ;.PRO|CEDURE C|
|00001630| 6c 6f 73 65 52 65 73 6f | 75 72 63 65 46 69 6c 65 |loseReso|urceFile|
|00001640| 20 28 20 66 69 6c 65 49 | 44 3a 49 6e 74 65 67 65 | ( fileI|D:Intege|
|00001650| 72 29 20 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 43 |r)  ;.FU|NCTION C|
|00001660| 6f 75 6e 74 52 65 73 6f | 75 72 63 65 73 20 28 20 |ountReso|urces ( |
|00001670| 72 65 73 6f 75 72 63 65 | 54 79 70 65 3a 52 65 73 |resource|Type:Res|
|00001680| 54 79 70 65 29 20 3a 20 | 4c 6f 6e 67 69 6e 74 20 |Type) : |Longint |
|00001690| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 43 6f 75 6e 74 |;.FUNCTI|ON Count|
|000016a0| 54 79 70 65 73 20 20 3a | 20 49 6e 74 65 67 65 72 |Types  :| Integer|
|000016b0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 43 72 65 | ;.PROCE|DURE Cre|
|000016c0| 61 74 65 52 65 73 6f 75 | 72 63 65 46 69 6c 65 20 |ateResou|rceFile |
|000016d0| 28 20 61 75 78 54 79 70 | 65 3a 4c 6f 6e 67 69 6e |( auxTyp|e:Longin|
|000016e0| 74 3b 20 66 69 6c 65 54 | 79 70 65 3a 49 6e 74 65 |t; fileT|ype:Inte|
|000016f0| 67 65 72 3b 20 66 69 6c | 65 41 63 63 65 73 73 3a |ger; fil|eAccess:|
|00001700| 49 6e 74 65 67 65 72 3b | 20 66 69 6c 65 4e 61 6d |Integer;| fileNam|
|00001710| 65 3a 47 53 53 74 72 69 | 6e 67 32 35 35 50 74 72 |e:GSStri|ng255Ptr|
|00001720| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 44 |)  ;.PRO|CEDURE D|
|00001730| 65 74 61 63 68 52 65 73 | 6f 75 72 63 65 20 28 20 |etachRes|ource ( |
|00001740| 72 65 73 6f 75 72 63 65 | 54 79 70 65 3a 52 65 73 |resource|Type:Res|
|00001750| 54 79 70 65 3b 20 72 65 | 73 6f 75 72 63 65 49 44 |Type; re|sourceID|
|00001760| 3a 52 65 73 49 44 29 20 | 20 3b 0d 46 55 4e 43 54 |:ResID) | ;.FUNCT|
|00001770| 49 4f 4e 20 47 65 74 43 | 75 72 52 65 73 6f 75 72 |ION GetC|urResour|
|00001780| 63 65 41 70 70 20 20 3a | 20 49 6e 74 65 67 65 72 |ceApp  :| Integer|
|00001790| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 47 65 74 43 | ;.FUNCT|ION GetC|
|000017a0| 75 72 52 65 73 6f 75 72 | 63 65 46 69 6c 65 20 20 |urResour|ceFile  |
|000017b0| 3a 20 49 6e 74 65 67 65 | 72 20 3b 0d 46 55 4e 43 |: Intege|r ;.FUNC|
|000017c0| 54 49 4f 4e 20 47 65 74 | 49 6e 64 52 65 73 6f 75 |TION Get|IndResou|
|000017d0| 72 63 65 20 28 20 72 65 | 73 6f 75 72 63 65 54 79 |rce ( re|sourceTy|
|000017e0| 70 65 3a 52 65 73 54 79 | 70 65 3b 20 72 65 73 6f |pe:ResTy|pe; reso|
|000017f0| 75 72 63 65 49 6e 64 65 | 78 3a 4c 6f 6e 67 69 6e |urceInde|x:Longin|
|00001800| 74 29 20 3a 20 52 65 73 | 49 44 20 3b 0d 46 55 4e |t) : Res|ID ;.FUN|
|00001810| 43 54 49 4f 4e 20 47 65 | 74 49 6e 64 54 79 70 65 |CTION Ge|tIndType|
|00001820| 20 28 20 74 79 70 65 49 | 6e 64 65 78 3a 49 6e 74 | ( typeI|ndex:Int|
|00001830| 65 67 65 72 29 20 3a 20 | 52 65 73 54 79 70 65 20 |eger) : |ResType |
|00001840| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 20 47 65 74 4d |;.FUNCTI|ON  GetM|
|00001850| 61 70 48 61 6e 64 6c 65 | 20 28 20 66 69 6c 65 49 |apHandle| ( fileI|
|00001860| 44 3a 49 6e 74 65 67 65 | 72 29 20 3a 20 52 65 73 |D:Intege|r) : Res|
|00001870| 4d 61 70 48 6e 64 6c 20 | 3b 0d 46 55 4e 43 54 49 |MapHndl |;.FUNCTI|
|00001880| 4f 4e 20 47 65 74 4f 70 | 65 6e 46 69 6c 65 52 65 |ON GetOp|enFileRe|
|00001890| 66 4e 75 6d 20 28 20 66 | 69 6c 65 49 44 3a 49 6e |fNum ( f|ileID:In|
|000018a0| 74 65 67 65 72 29 20 3a | 20 49 6e 74 65 67 65 72 |teger) :| Integer|
|000018b0| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 47 65 74 52 | ;.FUNCT|ION GetR|
|000018c0| 65 73 6f 75 72 63 65 41 | 74 74 72 20 28 20 72 65 |esourceA|ttr ( re|
|000018d0| 73 6f 75 72 63 65 54 79 | 70 65 3a 52 65 73 54 79 |sourceTy|pe:ResTy|
|000018e0| 70 65 3b 20 72 65 73 6f | 75 72 63 65 49 44 3a 52 |pe; reso|urceID:R|
|000018f0| 65 73 49 44 29 20 3a 20 | 52 65 73 41 74 74 72 20 |esID) : |ResAttr |
|00001900| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 47 65 74 52 65 |;.FUNCTI|ON GetRe|
|00001910| 73 6f 75 72 63 65 53 69 | 7a 65 20 28 20 72 65 73 |sourceSi|ze ( res|
|00001920| 6f 75 72 63 65 54 79 70 | 65 3a 52 65 73 54 79 70 |ourceTyp|e:ResTyp|
|00001930| 65 3b 20 63 75 72 72 65 | 6e 74 49 44 3a 52 65 73 |e; curre|ntID:Res|
|00001940| 49 44 29 20 3a 20 4c 6f | 6e 67 69 6e 74 20 3b 0d |ID) : Lo|ngint ;.|
|00001950| 46 55 4e 43 54 49 4f 4e | 20 48 6f 6d 65 52 65 73 |FUNCTION| HomeRes|
|00001960| 6f 75 72 63 65 46 69 6c | 65 20 28 20 72 65 73 6f |ourceFil|e ( reso|
|00001970| 75 72 63 65 54 79 70 65 | 3a 52 65 73 54 79 70 65 |urceType|:ResType|
|00001980| 3b 20 72 65 73 6f 75 72 | 63 65 49 44 3a 52 65 73 |; resour|ceID:Res|
|00001990| 49 44 29 20 3a 20 49 6e | 74 65 67 65 72 20 3b 0d |ID) : In|teger ;.|
|000019a0| 46 55 4e 43 54 49 4f 4e | 20 20 4c 6f 61 64 41 62 |FUNCTION|  LoadAb|
|000019b0| 73 52 65 73 6f 75 72 63 | 65 20 28 20 6c 6f 61 64 |sResourc|e ( load|
|000019c0| 41 64 64 72 65 73 73 3a | 4c 6f 6e 67 69 6e 74 3b |Address:|Longint;|
|000019d0| 20 6d 61 78 53 69 7a 65 | 3a 4c 6f 6e 67 69 6e 74 | maxSize|:Longint|
|000019e0| 3b 20 72 65 73 6f 75 72 | 63 65 54 79 70 65 3a 52 |; resour|ceType:R|
|000019f0| 65 73 54 79 70 65 3b 20 | 72 65 73 6f 75 72 63 65 |esType; |resource|
|00001a00| 49 44 3a 52 65 73 49 44 | 29 20 3a 20 4c 6f 6e 67 |ID:ResID|) : Long|
|00001a10| 69 6e 74 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 4c |int ;.FU|NCTION L|
|00001a20| 6f 61 64 52 65 73 6f 75 | 72 63 65 20 28 20 72 65 |oadResou|rce ( re|
|00001a30| 73 6f 75 72 63 65 54 79 | 70 65 3a 52 65 73 54 79 |sourceTy|pe:ResTy|
|00001a40| 70 65 3b 20 72 65 73 6f | 75 72 63 65 49 44 3a 52 |pe; reso|urceID:R|
|00001a50| 65 73 49 44 29 20 3a 20 | 48 61 6e 64 6c 65 20 3b |esID) : |Handle ;|
|00001a60| 0d 50 52 4f 43 45 44 55 | 52 45 20 4d 61 72 6b 52 |.PROCEDU|RE MarkR|
|00001a70| 65 73 6f 75 72 63 65 43 | 68 61 6e 67 65 20 28 20 |esourceC|hange ( |
|00001a80| 63 68 61 6e 67 65 64 46 | 6c 61 67 3a 42 6f 6f 6c |changedF|lag:Bool|
|00001a90| 65 61 6e 3b 20 72 65 73 | 6f 75 72 63 65 54 79 70 |ean; res|ourceTyp|
|00001aa0| 65 3a 52 65 73 54 79 70 | 65 3b 20 72 65 73 6f 75 |e:ResTyp|e; resou|
|00001ab0| 72 63 65 49 44 3a 52 65 | 73 49 44 29 20 20 3b 0d |rceID:Re|sID)  ;.|
|00001ac0| 50 52 4f 43 45 44 55 52 | 45 20 4d 61 74 63 68 52 |PROCEDUR|E MatchR|
|00001ad0| 65 73 6f 75 72 63 65 48 | 61 6e 64 6c 65 20 28 56 |esourceH|andle (V|
|00001ae0| 41 52 20 72 65 73 6f 75 | 72 63 65 49 6e 66 6f 3a |AR resou|rceInfo:|
|00001af0| 52 65 73 6f 75 72 63 65 | 53 70 65 63 3b 20 72 65 |Resource|Spec; re|
|00001b00| 73 6f 75 72 63 65 48 61 | 6e 64 6c 65 3a 48 61 6e |sourceHa|ndle:Han|
|00001b10| 64 6c 65 29 20 20 3b 0d | 46 55 4e 43 54 49 4f 4e |dle)  ;.|FUNCTION|
|00001b20| 20 4f 70 65 6e 52 65 73 | 6f 75 72 63 65 46 69 6c | OpenRes|ourceFil|
|00001b30| 65 20 28 20 6f 70 65 6e | 41 63 63 65 73 73 3a 49 |e ( open|Access:I|
|00001b40| 6e 74 65 67 65 72 3b 20 | 72 65 73 6f 75 72 63 65 |nteger; |resource|
|00001b50| 4d 61 70 50 74 72 3a 52 | 65 73 4d 61 70 50 74 72 |MapPtr:R|esMapPtr|
|00001b60| 3b 20 66 69 6c 65 4e 61 | 6d 65 3a 47 53 53 74 72 |; fileNa|me:GSStr|
|00001b70| 69 6e 67 32 35 35 50 74 | 72 29 20 3a 20 49 6e 74 |ing255Pt|r) : Int|
|00001b80| 65 67 65 72 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |eger ;.P|ROCEDURE|
|00001b90| 20 52 65 6c 65 61 73 65 | 52 65 73 6f 75 72 63 65 | Release|Resource|
|00001ba0| 20 28 20 70 75 72 67 65 | 4c 65 76 65 6c 3a 49 6e | ( purge|Level:In|
|00001bb0| 74 65 67 65 72 3b 20 72 | 65 73 6f 75 72 63 65 54 |teger; r|esourceT|
|00001bc0| 79 70 65 3a 52 65 73 54 | 79 70 65 3b 20 72 65 73 |ype:ResT|ype; res|
|00001bd0| 6f 75 72 63 65 49 44 3a | 52 65 73 49 44 29 20 20 |ourceID:|ResID)  |
|00001be0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 52 65 6d 6f |;.PROCED|URE Remo|
|00001bf0| 76 65 52 65 73 6f 75 72 | 63 65 20 28 20 72 65 73 |veResour|ce ( res|
|00001c00| 6f 75 72 63 65 54 79 70 | 65 3a 52 65 73 54 79 70 |ourceTyp|e:ResTyp|
|00001c10| 65 3b 20 72 65 73 6f 75 | 72 63 65 49 44 3a 52 65 |e; resou|rceID:Re|
|00001c20| 73 49 44 29 20 20 3b 0d | 50 52 4f 43 45 44 55 52 |sID)  ;.|PROCEDUR|
|00001c30| 45 20 52 65 73 6f 75 72 | 63 65 42 6f 6f 74 49 6e |E Resour|ceBootIn|
|00001c40| 69 74 20 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |it   ;.P|ROCEDURE|
|00001c50| 20 52 65 73 6f 75 72 63 | 65 43 6f 6e 76 65 72 74 | Resourc|eConvert|
|00001c60| 65 72 20 28 20 63 6f 6e | 76 65 72 74 65 72 50 72 |er ( con|verterPr|
|00001c70| 6f 63 3a 50 72 6f 63 50 | 74 72 3b 20 72 65 73 6f |oc:ProcP|tr; reso|
|00001c80| 75 72 63 65 54 79 70 65 | 3a 52 65 73 54 79 70 65 |urceType|:ResType|
|00001c90| 3b 20 6c 6f 67 46 6c 61 | 67 73 3a 49 6e 74 65 67 |; logFla|gs:Integ|
|00001ca0| 65 72 29 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |er)  ;.P|ROCEDURE|
|00001cb0| 20 52 65 73 6f 75 72 63 | 65 52 65 73 65 74 20 20 | Resourc|eReset  |
|00001cc0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 52 65 73 | ;.PROCE|DURE Res|
|00001cd0| 6f 75 72 63 65 53 68 75 | 74 44 6f 77 6e 20 20 20 |ourceShu|tDown   |
|00001ce0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 52 65 73 6f |;.PROCED|URE Reso|
|00001cf0| 75 72 63 65 53 74 61 72 | 74 55 70 20 28 20 75 73 |urceStar|tUp ( us|
|00001d00| 65 72 49 44 3a 49 6e 74 | 65 67 65 72 29 20 20 3b |erID:Int|eger)  ;|
|00001d10| 0d 46 55 4e 43 54 49 4f | 4e 20 52 65 73 6f 75 72 |.FUNCTIO|N Resour|
|00001d20| 63 65 53 74 61 74 75 73 | 20 20 3a 20 42 6f 6f 6c |ceStatus|  : Bool|
|00001d30| 65 61 6e 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 52 |ean ;.FU|NCTION R|
|00001d40| 65 73 6f 75 72 63 65 56 | 65 72 73 69 6f 6e 20 20 |esourceV|ersion  |
|00001d50| 3a 20 49 6e 74 65 67 65 | 72 20 3b 0d 50 52 4f 43 |: Intege|r ;.PROC|
|00001d60| 45 44 55 52 45 20 53 65 | 74 43 75 72 52 65 73 6f |EDURE Se|tCurReso|
|00001d70| 75 72 63 65 41 70 70 20 | 28 20 75 73 65 72 49 44 |urceApp |( userID|
|00001d80| 3a 49 6e 74 65 67 65 72 | 29 20 20 3b 0d 50 52 4f |:Integer|)  ;.PRO|
|00001d90| 43 45 44 55 52 45 20 53 | 65 74 43 75 72 52 65 73 |CEDURE S|etCurRes|
|00001da0| 6f 75 72 63 65 46 69 6c | 65 20 28 20 66 69 6c 65 |ourceFil|e ( file|
|00001db0| 49 44 3a 49 6e 74 65 67 | 65 72 29 20 20 3b 0d 50 |ID:Integ|er)  ;.P|
|00001dc0| 52 4f 43 45 44 55 52 45 | 20 53 65 74 52 65 73 6f |ROCEDURE| SetReso|
|00001dd0| 75 72 63 65 41 74 74 72 | 20 28 20 72 65 73 6f 75 |urceAttr| ( resou|
|00001de0| 72 63 65 41 74 74 72 3a | 52 65 73 41 74 74 72 3b |rceAttr:|ResAttr;|
|00001df0| 20 72 65 73 6f 75 72 63 | 65 54 79 70 65 3a 52 65 | resourc|eType:Re|
|00001e00| 73 54 79 70 65 3b 20 63 | 75 72 72 65 6e 74 49 44 |sType; c|urrentID|
|00001e10| 3a 52 65 73 49 44 29 20 | 20 3b 0d 46 55 4e 43 54 |:ResID) | ;.FUNCT|
|00001e20| 49 4f 4e 20 53 65 74 52 | 65 73 6f 75 72 63 65 46 |ION SetR|esourceF|
|00001e30| 69 6c 65 44 65 70 74 68 | 20 28 20 73 65 61 72 63 |ileDepth| ( searc|
|00001e40| 68 44 65 70 74 68 3a 49 | 6e 74 65 67 65 72 29 20 |hDepth:I|nteger) |
|00001e50| 3a 20 49 6e 74 65 67 65 | 72 20 3b 0d 50 52 4f 43 |: Intege|r ;.PROC|
|00001e60| 45 44 55 52 45 20 53 65 | 74 52 65 73 6f 75 72 63 |EDURE Se|tResourc|
|00001e70| 65 49 44 20 28 20 6e 65 | 77 49 44 3a 52 65 73 49 |eID ( ne|wID:ResI|
|00001e80| 44 3b 20 72 65 73 6f 75 | 72 63 65 54 79 70 65 3a |D; resou|rceType:|
|00001e90| 52 65 73 54 79 70 65 3b | 20 63 75 72 72 65 6e 74 |ResType;| current|
|00001ea0| 49 44 3a 52 65 73 49 44 | 29 20 20 3b 0d 46 55 4e |ID:ResID|)  ;.FUN|
|00001eb0| 43 54 49 4f 4e 20 53 65 | 74 52 65 73 6f 75 72 63 |CTION Se|tResourc|
|00001ec0| 65 4c 6f 61 64 20 28 20 | 72 65 61 64 46 6c 61 67 |eLoad ( |readFlag|
|00001ed0| 3a 49 6e 74 65 67 65 72 | 29 20 3a 20 49 6e 74 65 |:Integer|) : Inte|
|00001ee0| 67 65 72 20 3b 0d 46 55 | 4e 43 54 49 4f 4e 20 55 |ger ;.FU|NCTION U|
|00001ef0| 6e 69 71 75 65 52 65 73 | 6f 75 72 63 65 49 44 20 |niqueRes|ourceID |
|00001f00| 28 20 49 44 72 61 6e 67 | 65 3a 49 6e 74 65 67 65 |( IDrang|e:Intege|
|00001f10| 72 3b 20 72 65 73 6f 75 | 72 63 65 54 79 70 65 3a |r; resou|rceType:|
|00001f20| 52 65 73 54 79 70 65 29 | 20 3a 20 52 65 73 49 44 |ResType)| : ResID|
|00001f30| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 55 70 64 | ;.PROCE|DURE Upd|
|00001f40| 61 74 65 52 65 73 6f 75 | 72 63 65 46 69 6c 65 20 |ateResou|rceFile |
|00001f50| 28 20 66 69 6c 65 49 44 | 3a 49 6e 74 65 67 65 72 |( fileID|:Integer|
|00001f60| 29 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 57 |)  ;.PRO|CEDURE W|
|00001f70| 72 69 74 65 52 65 73 6f | 75 72 63 65 20 28 20 72 |riteReso|urce ( r|
|00001f80| 65 73 6f 75 72 63 65 54 | 79 70 65 3a 52 65 73 54 |esourceT|ype:ResT|
|00001f90| 79 70 65 3b 20 72 65 73 | 6f 75 72 63 65 49 44 3a |ype; res|ourceID:|
|00001fa0| 52 65 73 49 44 29 20 20 | 3b 0d 0d 46 55 4e 43 54 |ResID)  |;..FUNCT|
|00001fb0| 49 4f 4e 20 4c 6f 61 64 | 52 65 73 6f 75 72 63 65 |ION Load|Resource|
|00001fc0| 32 28 66 6c 61 67 73 3a | 69 6e 74 65 67 65 72 3b |2(flags:|integer;|
|00001fd0| 20 6f 6c 64 41 74 74 72 | 3a 50 74 72 3b 20 72 54 | oldAttr|:Ptr; rT|
|00001fe0| 79 70 65 3a 52 65 73 54 | 79 70 65 3b 20 72 49 44 |ype:ResT|ype; rID|
|00001ff0| 3a 52 65 73 49 44 29 3a | 20 48 61 6e 64 6c 65 3b |:ResID):| Handle;|
|00002000| 0d 46 55 4e 43 54 49 4f | 4e 20 52 4d 46 69 6e 64 |.FUNCTIO|N RMFind|
|00002010| 4e 61 6d 65 64 52 65 73 | 6f 75 72 63 65 28 72 54 |NamedRes|ource(rT|
|00002020| 79 70 65 3a 52 65 73 54 | 79 70 65 3b 20 6e 61 6d |ype:ResT|ype; nam|
|00002030| 65 3a 53 74 72 69 6e 67 | 50 74 72 3b 20 66 69 6c |e:String|Ptr; fil|
|00002040| 65 49 44 70 74 72 3a 50 | 74 72 29 3a 20 6c 6f 6e |eIDptr:P|tr): lon|
|00002050| 67 69 6e 74 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |gint;.PR|OCEDURE |
|00002060| 52 4d 47 65 74 52 65 73 | 6f 75 72 63 65 4e 61 6d |RMGetRes|ourceNam|
|00002070| 65 28 72 54 79 70 65 3a | 52 65 73 54 79 70 65 3b |e(rType:|ResType;|
|00002080| 20 72 49 44 3a 52 65 73 | 49 44 3b 20 6e 61 6d 65 | rID:Res|ID; name|
|00002090| 3a 53 74 72 69 6e 67 50 | 74 72 29 3b 0d 46 55 4e |:StringP|tr);.FUN|
|000020a0| 43 54 49 4f 4e 20 52 4d | 4c 6f 61 64 4e 61 6d 65 |CTION RM|LoadName|
|000020b0| 64 52 65 73 6f 75 72 63 | 65 28 72 54 79 70 65 3a |dResourc|e(rType:|
|000020c0| 52 65 73 54 79 70 65 3b | 20 6e 61 6d 65 3a 53 74 |ResType;| name:St|
|000020d0| 72 69 6e 67 50 74 72 29 | 3a 20 48 61 6e 64 6c 65 |ringPtr)|: Handle|
|000020e0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 52 4d 53 65 |;.PROCED|URE RMSe|
|000020f0| 74 52 65 73 6f 75 72 63 | 65 4e 61 6d 65 28 72 54 |tResourc|eName(rT|
|00002100| 79 70 65 3a 52 65 73 54 | 79 70 65 3b 20 72 49 44 |ype:ResT|ype; rID|
|00002110| 3a 52 65 73 49 44 3b 20 | 6e 61 6d 65 3a 53 74 72 |:ResID; |name:Str|
|00002120| 69 6e 67 50 74 72 29 3b | 0d 0d 46 55 4e 43 54 49 |ingPtr);|..FUNCTI|
|00002130| 4f 4e 20 4f 70 65 6e 52 | 65 73 6f 75 72 63 65 46 |ON OpenR|esourceF|
|00002140| 69 6c 65 42 79 49 44 20 | 28 20 6f 70 65 6e 41 63 |ileByID |( openAc|
|00002150| 63 65 73 73 2c 20 75 73 | 65 72 49 44 3a 49 6e 74 |cess, us|erID:Int|
|00002160| 65 67 65 72 29 20 3a 20 | 49 6e 74 65 67 65 72 20 |eger) : |Integer |
|00002170| 3b 0d 20 20 49 4e 4c 49 | 4e 45 20 24 41 32 2c 24 |;.  INLI|NE $A2,$|
|00002180| 32 45 31 45 2c 24 32 32 | 2c 24 45 31 30 30 30 30 |2E1E,$22|,$E10000|
|00002190| 2c 24 38 46 2c 27 5f 74 | 6f 6f 6c 45 72 72 27 3b |,$8F,'_t|oolErr';|
|000021a0| 0d 50 52 4f 43 45 44 55 | 52 45 20 43 6f 6d 70 61 |.PROCEDU|RE Compa|
|000021b0| 63 74 52 65 73 6f 75 72 | 63 65 46 69 6c 65 20 28 |ctResour|ceFile (|
|000021c0| 20 66 6c 61 67 73 2c 20 | 66 69 6c 65 49 44 3a 49 | flags, |fileID:I|
|000021d0| 6e 74 65 67 65 72 29 20 | 20 3b 0d 20 20 49 4e 4c |nteger) | ;.  INL|
|000021e0| 49 4e 45 20 24 41 32 2c | 24 32 46 31 45 2c 24 32 |INE $A2,|$2F1E,$2|
|000021f0| 32 2c 24 45 31 30 30 30 | 30 2c 24 38 46 2c 27 5f |2,$E1000|0,$8F,'_|
|00002200| 74 6f 6f 6c 45 72 72 27 | 3b 0d 0d 49 4d 50 4c 45 |toolErr'|;..IMPLE|
|00002210| 4d 45 4e 54 41 54 49 4f | 4e 0d 45 4e 44 2e 0d 00 |MENTATIO|N.END...|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002280| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00002290| 6c 65 61 6e 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |lean ;.F|UNCTION |
|000022a0| 52 65 73 6f 75 72 63 65 | 56 65 72 73 69 6f 6e 20 |Resource|Version |
|000022b0| 0b 52 65 73 6f 75 72 63 | 65 73 2e 70 02 00 00 00 |.Resourc|es.p....|
|000022c0| 54 45 58 54 4d 50 53 20 | 01 00 ff ff ff ff 00 00 |TEXTMPS |........|
|000022d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 a1 49 b4 90 00 00 | 21 9f 00 00 01 ac 52 65 |...I....|!.....Re|
|00002300| 73 6f 75 72 63 65 46 69 | 6c 65 20 28 20 66 69 6c |sourceFi|le ( fil|
|00002310| 65 49 44 3a 49 6e 74 65 | 67 65 72 29 20 20 3b 0d |eID:Inte|ger)  ;.|
|00002320| 50 52 4f 43 45 44 55 52 | 45 20 53 65 74 52 65 73 |PROCEDUR|E SetRes|
|00002330| 6f 75 72 63 65 41 74 74 | 72 20 28 20 72 65 73 6f |ourceAtt|r ( reso|
|00002340| 75 72 63 65 41 74 74 72 | 3a 52 65 73 41 74 74 72 |urceAttr|:ResAttr|
|00002350| 3b 20 72 65 73 6f 75 72 | 63 65 54 79 70 65 3a 52 |; resour|ceType:R|
|00002360| 65 73 54 79 70 65 3b 20 | 63 75 72 72 65 6e 74 49 |esType; |currentI|
|00002370| 44 3a 52 65 73 49 44 29 | 20 20 3b 0d 46 55 4e 43 |D:ResID)|  ;.FUNC|
|00002380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 28 02 3a |...H..Mo|naco.(.:|
|00002390| 00 28 04 48 00 00 00 00 | 00 00 00 00 00 00 00 00 |.(.H....|........|
|000023a0| 00 00 00 00 00 00 00 06 | 00 04 00 3c 00 24 01 53 |........|...<.$.S|
|000023b0| 01 bd 00 3c 00 24 01 53 | 01 bd a4 a1 cb c6 00 00 |...<.$.S|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000023d0| 00 3c 00 24 01 53 01 bd | 00 3c 00 24 01 53 01 bd |.<.$.S..|.<.$.S..|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00002400| df d8 0e b2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00002410| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00002420| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+